home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / unarced / datacomm / vlt / rexx / setping.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-17  |  420b  |  22 lines
  1. /** SetPing.rexx
  2. *
  3. *   Set up the PingServer with a nice chime.
  4. *   Requires 'Ping'. This macro is usually run in the startup-sequence.
  5. *
  6. **/
  7. if ~show('l','rexxarplib.library') then addrexxlib
  8. /*
  9. *   Run Ping:
  10. */
  11. address command 'ping'
  12. /*
  13. *   Wait until its port appears
  14. */
  15. do i = 1 to 20
  16.    if ~showlist('p', 'PingServer') then call delay 20
  17.    else leave i
  18. end
  19.  
  20. call sendparsed('PingServer', SET, 1000, 5000, 64)
  21. exit
  22.